0 REM DOS SUPPORT (D. SPRUYT, 1985) : 1 : 2 REM 5 STATEMENTS, 2 FUNCTIONS 3 : 4 REM KEYWORD CHARS: 24 5 : 6 REM KEYWORD ROUTINE LINE SER # 7 REM S/CAT KAT 8644 123 8 REM S/DOS COMMS 8742 124 9 REM S/DEV DVC 8766 125 10 REM S/DLOAD DLD 8808 126 11 REM S/DSAVE DSVE 8814 127 12 REM F/DS$ DSS 8598 128 13 REM F/DS DSN 8618 129 14 : 15 REM U/USFP (2620/006) 16 : 17 REM ================================ 18 : 134 .ASC "CA[212]DO[211]DE[214]" 135 .ASC "DLOA[196]DSAV[197]" 620 .ASC "DS":.BYTE $A4:.ASC "D[211]" 1134 .WORD KAT-1,COMMS-1,DVC-1 1135 .WORD DLD-1,DSVE-1 1620 .WORD DSS-1,DSN-1 2620 USFP LDX #0 2622 STX $0D 2624 STA $62 2626 STY $63 2628 LDX #$90 2630 SEC 2632 JMP $BC49 2634 ; 8560 DSS1 LDA DEVICE 8562 STA $BA 8564 LDA #$6F 8566 STA $B9 8568 LDA #0 8570 STA $B7 8572 JSR CHPRES 8574 LDA $BA 8576 JSR $FFB4 8578 LDA $B9 8580 JSR $FF96 8582 LDY #$FF 8584 DSS2 INY 8586 JSR $FFA5 8588 STA DSBUF,Y 8590 CMP #$0D 8592 BNE DSS2 8594 JSR $F642 8596 RTS 8598 DSS JSR DSS1 8600 TYA 8602 JSR $B47D 8604 TAY 8606 DSS3 LDA DSBUF,Y 8608 STA ($62),Y 8610 DEY 8612 BPL DSS3 8614 JMP $B4CA 8616 ; 8618 DSN JSR DSS1 8620 LDX DSBUF 8622 LDA DSBUF+1 8624 AND #$0F 8626 DSN1 CPX #"0" 8628 BEQ DSN2 8630 DEX 8632 ADC #9 8634 BCC DSN1 8636 DSN2 TAY 8638 LDA #0 8640 JMP USFP 8642 ; 8644 KAT LDA DEVICE 8646 STA $BA 8648 LDA #$60 8650 STA $B9 8652 LDA #1 8654 LDY #>DOLLAR 8656 LDX #